home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch17 / 7Sph1Pln.ray < prev    next >
Text File  |  1999-07-06  |  2KB  |  83 lines
  1. Viewpoint(1000, 1.9, -0.6)
  2. AmbientLight(50, 50, 50)
  3. LightSource(-1000, -500, 1000, 255, 255, 255)
  4. ' Sphere 1.
  5. Sphere( 25, 
  6.   50.00, 0, 86.60, 
  7.   0.8, 0.0, 0.0, ' Ambient
  8.   0.8, 0.0, 0.0, ' Diffuse
  9.   20, 0.35,      ' Specular
  10.   0, 0, 0,       ' Reflected
  11.   1, 1, 1,       ' TransN, n1, n2
  12.   0, 0, 0,       ' Transmitted
  13. )
  14. ' Sphere 2.
  15. Sphere( 25, 
  16.   -50.00, 0, 86.60, 
  17.   0.6, 0.6, 0.0, ' Ambient
  18.   0.6, 0.6, 0.0, ' Diffuse
  19.   20, 0.35,      ' Specular
  20.   0, 0, 0,       ' Reflected
  21.   1, 1, 1,       ' TransN, n1, n2
  22.   0, 0, 0,       ' Transmitted
  23. )
  24. ' Sphere 3.
  25. Sphere( 25, 
  26.   -100.00, 0, 0.00, 
  27.   0.0, 0.8, 0.0, ' Ambient
  28.   0.0, 0.8, 0.0, ' Diffuse
  29.   20, 0.35,      ' Specular
  30.   0, 0, 0,       ' Reflected
  31.   1, 1, 1,       ' TransN, n1, n2
  32.   0, 0, 0,       ' Transmitted
  33. )
  34. ' Sphere 4.
  35. Sphere( 25, 
  36.   -50.00, 0, -86.60, 
  37.   0.0, 0.8, 0.8, ' Ambient
  38.   0.0, 0.8, 0.8, ' Diffuse
  39.   20, 0.35,      ' Specular
  40.   0, 0, 0,       ' Reflected
  41.   1, 1, 1,       ' TransN, n1, n2
  42.   0, 0, 0,       ' Transmitted
  43. )
  44. ' Sphere 5.
  45. Sphere( 25, 
  46.   50.00, 0, -86.60, 
  47.   0.0, 0.0, 0.8, ' Ambient
  48.   0.0, 0.0, 0.8, ' Diffuse
  49.   20, 0.35,      ' Specular
  50.   0, 0, 0,       ' Reflected
  51.   1, 1, 1,       ' TransN, n1, n2
  52.   0, 0, 0,       ' Transmitted
  53. )
  54. ' Sphere 6.
  55. Sphere( 25, 
  56.   100.00, 0, 0.00, 
  57.   0.8, 0.0, 0.8, ' Ambient
  58.   0.8, 0.0, 0.8, ' Diffuse
  59.   20, 0.35,      ' Specular
  60.   0, 0, 0,       ' Reflected
  61.   1, 1, 1,       ' TransN, n1, n2
  62.   0, 0, 0,       ' Transmitted
  63. )
  64. ' Big Sphere 7.
  65. Sphere(50, 0, 30, 0, 
  66.   0.8, 0.8, 0.8, ' Ambient
  67.   0.8, 0.8, 0.8, ' Diffuse
  68.   20, 0.35,      ' Specular
  69.   0, 0, 0,       ' Reflected
  70.   1, 1, 1,       ' TransN, n1, n2
  71.   0, 0, 0,       ' Transmitted
  72. )
  73. Plane(0, 25, 0,   ' Point on plane
  74.   0, 1, 0,        ' Normal vector
  75.   0.2, 0.7, 1.0,  ' Ambient
  76.   0.2, 0.7, 1.0,  ' Diffuse
  77.   20, 0.35,      ' Specular
  78.   0, 0, 0,       ' Reflected
  79.   1, 1, 1,       ' TransN, n1, n2
  80.   0, 0, 0,       ' Transmitted
  81. )
  82.  
  83.